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; ; ABSTRA CT 
This module creates and manages connections to the other systems 
in the cluster. 


; ENVIRONMENT: VAX/VMS 
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Correct source of SCS message size for testing. 
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messages. 
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version number artes 
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the neulet CSB Pa a system. 


v03-021 DWwT0163 Dav Thiel 19-Jan-1984 
Correct CNX$DISC_* gi BE si Support forced 
disconnection in the gener case. Rename 
CNX_ERROR to CNXSERRO 


V03-020 DWT0148 David W. Thiel 13-Dec-1983 
Store SYSGEN parameters LCKDIRWT and QDSKVOTES in 
the local CSB. Restructure code. Use CNXSALLOZMEM 
to allocate and zero pool. Correct disabling of 
polling once a node is firmly discovered. 


V03-019 DWT0142 David W. Thiel 07-Nov-1983 
Use symbolic protocol 7 CENCTSK PROTOCOL). 
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Disable eee polling after accepting a connection. 
Check more carefully for a fatal disconnect. 
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protocol version level to 6 to mark incompati ility 
with previous versions. 


V03-016 DWT0116 David W. Thiel 51 Co 
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v03-015 ably David W. Thiel 16-Jul-1983 
Use CNXSCHECK_QUORUM to hang on lose of quorum. 
Tolerate repest ing software incernation mners. 
Correct clean ter an ACCEPT fails. Clean up 
code a Little bit. Improve some messages. 


V03-014 ROW0185 Ralph 0. Weber 21-JUN-1983 
sSenge CSB SEL seus to block transfer partners BIX queue, to 
euseere connection manager block transfers. Remove CLUB 
eferences to SEL queue. 


v03-013 DWT0105 David W. Thiel 16-Jun-1983 
Fail message on any ca { to LONG. BREAK 
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GCHECK one o 
Remove penperer —* ae & management code and 
sntegrate ve CONMAR ae ule. 
nove CNX DisPaT tn® fo ¢ 
BSL_S 0 I ny to $8. 


dc 
aove tt izat on of local CSB. 
Dynamically allocate CLUB structure. 


v03-011 ROW0186 raion 0. Weber ory 
Bump protocol yore —  — . tr gndtcote use qf two lev 
NL_DISPT in CNXSINIT. 


dispatchin 
change L Cer est D1 Dinstees fo L Lek ef “BIRSYSCSID. Change setup to 
put directory node CSID here. Add CNX$DISPATCH, the 
target of the first level. Saou Mopetcher for FAC Menx 
messages. 

V03-010 DWwT0093 at W. Thiel 15-Apr-1983 
Track changes in SCLUBDEF. 

V03-009 DwWT0090 David W. Thiel 31-Mar-1983 


Add reconnection data to detect partitioned clusters. 
Extend CSB and CL 
Change protocol version to 2. 


v03-008 DWwT0085 David W. Thiel 14-Mar-1983 
Avoid attempt to output message during initialization. 
Correct misuse cf stack for connect data. 


V03-007 DWwT0084 David W. Thiel 12-Mar-1983 
Correct bug that allows a reconnect to be sent to 
a recently rebooted system. Log CSB creations. 


v03-006 $RrB0070 Steve Beckhardt 10-Mar-1983 
Added routine to send the job controller a message 
i a@ system is removed from the cluster. This is 
a temporary change. 


v03-005 pute 083 David W. Thiel 10-Mar-1983 
pea tece HALTs with, generic connection manager 
HECKs. Create and use CLUster Block. Change 
SY SKP name. 
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v03-004 DWwT0082 David W. Thiel 33-Mar-1983 
Correct use of disconnect/reject status codes. 
v03-003 puroore David W. Thiel 21-Feb-1983 


Major revision wht h ine tudes’ 
Initialize automat reetty on being loaded. 
Use SCA Process Poller to find new systems. 
More state oriented structure 
Split out acknowledged message services as ACKMSG. 


V03-002 SRB0064 teve Beckhardt 21- =gn-1965 
penoved cell — GL HM ghee as it now resides in the 
EXEC (in module SYSCOMMO 
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»SBTTL DECLARATIONS 
; INCLUDE FILES: 


° 


: EQUATED SYMBOLS: 


SEND_CREDITS = 5 


The unacknowledged measene imit is set to SEND_CREDITS-1 
in order to force an explicit acknowledgement message to 
be sent BEFORE SCS wilt ever consider sending an explicit 
credit message. This is done because the acknowledgement 
message costs the same 9s the credit message and does 
more (it completes send ng threads). {hts formula for 
choos tng an unacknowledged message Limit is conservative 
n that message buffers cached in the warm CDRP cache 
instead of being deallocated cannot cause explicit SCS 
credit messages. 


3; Connection send credits 
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SCOTDEF 3: CDT Offers 
SCLMORSDEF 3; Cluster d Sconnecticeiect codes 
SCLSMSGDEF ; Cluster message definitions 
SCLUBDEF 3; CLUster Block offsets 
CNCTDEF 3; CONNECT data offsets 
CSBDEF ; CSB Offsets 
DYNDEF ; Data structure type codes 
ste} 3; Fork hock qt tee s 
IPLDEF 3 Pt definitions 
SMSGDEF ; Mailbox message type codes 
SPBDEF ; PB Offsets 
SPDTDEF ; PDT Offsets 
SSBDEF ; $B Offsets 
SSCSCMGDEF ; SCS CONNECT Message definitions 
STQEDEF 3; TQE offsets 
3; MACROS 
-MACRO STATE_DISP LIST 
BSBW DISPATCH 
.IRP ITEM, <LIST> 
STATE_ENTRY ITEM 
~ENDR 
-BYTE 0 : Flag end 
-ENDM STATE_DISP 
- MACRO STATE _ENTRY CODE ,ADDR, 7LABEL 
-BYTE CSBSK_ 
- SIGNED_WORD ADDR-LABEL 
LABEL: .ENDM “STATE_ENTRY 
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ASSUME 
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0 


—OOODNOULS UT" O0OD NOUS UM 


ee SS to ee 


- DEFAULT 


AX/VMS Macro V04-00 
SYSLOA.SRCJCNXMAN.MAR; 1 


SSE 1986 82:63:78 


; R/W Data PSECT 
; SYSAP name 


ree 


$$$040,LONG 


"VMSS$SVAXc luster” 
16-<.=PROC_NAME> 


'ARBRAAAAAA ARAL AAAS ARLE SALES SELES REE ERR ERE E SERRE EEE RRR EEE REE EEE EES 


NOTE: The following assumptions are in effect for this entire module. 


MARAAAAAAAAALALAALALALASL ELE LEE EEE RSE E SESE RR EERE EERE EERE REE E RSE EERE REESE 


IPL$_SYNCH EQ IPL$_SCS 
IPLS$-SYNCH EQ IPLS_TIMER 


DISPLACEMENT , WORD 
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STATE“ORIENTED DESCRIPTION OF CONNECTION MANAGEMENT LAYER: 


{he connect ign manager is organized as a state machine. 

Each ction fs on has its oun py ees State machine. Each 
i eyes pbeay S Mp heen sy ng a ggnnect on Status Block (CSB). 
The sta onn nect io ad ned by the contents of the 
(S88 Stare oft - The states are defined by 

symb bots of the eer *-§§ K_state where ‘'state'’ is the 
state name. 


STATES: 


NEW 
Brand new connection block created as the result of a 
feterence ” a node id/software incarnation for which no 
existed. 


CONNECT 
Initial connect request to a newly discovered system in 
progress. 


ACCEPT 
Initial connection from a newly discovered system being 
accepted. 


Connection to a system exists and is available for use. 
This is the ‘‘normal"’ state of a CSB. 


DISCONNECT 
Disconnect of an open connection in progress. 


IT 
Timeout in erpgress. On conclusion of the timeout, an 
attempt will be made to reconnect to the remote system. 


RECONNECT 
Connect in progress to a system to which a previous 
connection broke. 


REACCEPT 
Accept in progress to a system to which a previous 
connection broke. 


D 

A new incarnation of the node has been seen 

No connection new connec ston to the incarnation specified 
by the CSB is possible, for obvious reasons. 


CAL 
Special state only found for the local node. 
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-SBTTL CNXSINIT = Initialize connection manager 


+ 
* 


; FUNCTIONAL DESCRIPTION: 


This routine is called during system booting to initialize 
the connection manager. 


CALLING SEQUENCE: 


JSB SaseneT 
IPL is 3 


INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO-R5 are destroyed 


-PSECT $$$002 : Initialization section 


CNXSINIT:: 


Hy tte #CLUBSK_LENGTH,R1 Length of CLUB 


SBW CNXSALLOZMEM ; Allocate and zero memory 
BLBC Rg. $ :; Branch if memory not available 
MOVL R2,G*CLUSGL_CL : Store for the world to see 
MOVAQ CLUBSL_CSBOFL(R2), - ; Initialize CSB queue 
novnn SLURS ESR GS 

LUBS$L_CSBQBL (R2) 
MOVB #DYNSC_CLU_CLUB, - ; Block subtype 
UBSB~ SUBTYPE (R2) 

MOVAL W*CJF SIN. JOURNAL CLUBS, JNL_DISPT(R2) ; Init icuroet dispatch 
MOV ai eGtus W-FIRST e+} hi J > Next available CSID slot 
MCOMW ,CLUBSW-QDVOTES(R2) =; Initialize to maximum possible votes 
ASSUME CLUBFKB$S~FORK BLOCK GE FKBSK_LENGTH 
MOVAB C UBse FORK BLOCK (Re) RO ; Address of fork block 

VB # IPL SCS. FRB FIPL(RO) ; Store IPL in fork block 
ASSUME CLUBPOFSS FORK BLOCK GE FKB K_LENGTH 

VAB cLusse CLOBPWFTR2),RO ; Power recovery fork block 
ROVE #1PLS SCS .FKBS gh LAL (ROD : Store IPL in fork block 

x : Create or local system 
SBW CNX REATE csB C CSB f l l 
5$ BLBC RO, ; Branch on error 


50 AS 
52 AS 
56 AS 
54 AS 
60 AS 


OB A2 
00000000 ' GF 8 
00000000°GF 01 


50 ©6000 
52.0 
0000000 


55 


41 AS 01 AO 
00000000 * GF 
00000000 ' GF 
00000000 ' GF 
00000000 ' GF 
01000000 8F 

43 AS 08 


° 
-sS 
Sacon 


opgosee 
OC A 


52 
00000009 
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LISTEN_ERROR: 
DISCONNECT 
RSB 
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ACSBSR LOC 


AL, = 
CSB$B_STATE(RS) 
> LISTEN for incoming CONNECTS. 
LISTEN MSGADR = CNXSRCV_CNCT_MSG, - 3; Listen for incoming CONNECTs 

LPRNAM = PROC - 


PRINFO = (R 


0) 
ERRADR = LISTEN_ERROR 


RO,1 
#184<256%4>,R1 
cuXsA LOZMEM 


#DYNSC_CLU_CLUVEC,1 
1 (R2) ,G*C USGL_CLU 
#256,G6°CLU GW_MAXIN 


PLUM enE YSIS TER. RO 
NAME ,R 


G*SCSSPOLL_PROC 


zoo 
oO > 
o 


G*€LUSGL_CLUB,RS 
R1,CLUBSC_POLL_CTX(R5) 


R2 
G*SCSSPOLL_MODE 
CNXSCON_INTT 


$$$100,LONG 
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Get peérese of cluster block 
Local system CSB address 
Connect data template 

Fill in protocol ECO level 


; Fill in protocol version 


Votes hela by local system 

Local system proposed quorum 

Local system proposed quorum disk votes 
Lock manager directory system weight 


3; Mark this the local CSB 


Set state of local CSB 


Use data in local CSB 


Branch on failure 
Length of cluster vector 
Allocate and zero memory 
Branch on failure 


3; Store sub-type 


Store vector address 


; Maximum cluster vector index+1 


; Address of new system routine 
; Address of process name 

; Poll for copies of self 

; Branch on failure 

; Get address of cluster block 
; Save context for later calls 


s odd -- ongbio polling 


; R1 is address of SP 
; ALL systems now and forever 


pnebie p Lling 
; Initialize configuration manager 
; Return status 


Clean up error 
and return 
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~SBTTL CNXSNEWSYSTEM = New system heard frem 


+ 
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FUNCTIONAL DESCRIPTION: 


This routine is called when the SCA Process Poller detects 
a possible new system. 


CALLING SEQUENCE: 


JSB CNXSNEWSYSTEM 
IPL must be at IPLS$_SYNCH 


INPUT PARAMETERS: 

RO is context (nothing interesting) 

Ri is address of process name 

Re is address of system | 

RS is address of process information 
OUTPUT PARAMETERS: 

NONE 
COMPLETION CODES: 

RO odd = success 

Disable polling on the system 


RO even = failure 
Continue polling the system 


SPREE 
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SIDE EFFECTS: 
R1-R5 are destroyed 
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0 44 
0 44 
0 44 
0 45 
0 45 
45 
45 
45 
ye 
0000 , $ -PSECT $$$100,LONG 
0 459 CNXSNEWSYSTEM:: 
51 28 dO 0 46 MOVL R2,R1 3; Address of System ID 
5 04 46 CLRL 3; No buffer 
00000099" F 18 6 JSB £ OEpRCOMF IG_S¥S 3: Find § 
19 50 § 4 BLBC RO, 308 : Branch on not found 
95 3 0 1 46 BSBW CNXSLOOKUP_CSB ; Find or allocate a CSB 
13 5 E9 1 46 BLBC . : Branch on invalid systen ID 
1 46 STATE_DISP <<NEW, 20$>, <CONNECT 0$>,<ACCEPT, 30$> 
50 (01 v0 467 10$:  MOVL~ #1,RO ; Disable polling 
rhs RSB 3; Return 
93 10 t3 § $: BSBB CNXSNEW_CSB 3; Do initial connect to new CSB 
0 Be 47 $: CLRL RO ; Continue polling 
5 47 RSB ; Unable to allocate memory 
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- ster Conne 
v04-000 CNXSNEW_CSB = Connect to new system “SEP=1 SYSLOA.SRC CNX MAN.MAR; 1 (6) v04 
} toe -SBTTL CNXSNEW_CSB = Connect to new system 
| iin 
428 : FUNCTIONAL DESCRIPTION: 
1 4 y ; This routine is called to do the initial connect to a 
! 2 3 new system. 
tee $ > CALLING SEQUENCE: 
0 1 485: JSB CNXSNEW_CS 
: : § 3 IPL must be at TPL$_SYNCH 
O31 488 : INPUT PARAMETERS: 
o 430 ; RS is the CSB address 
031 436 t OUTPUT PARAMETERS: 
031 493; 
a at 
031 496 > COMPLETION CODES: 
031 497; 
$03] 298 atte 
00 200 : SIDE EFFECTS: 
3 1 288 ; RO-R4 are destroyed 
031 2 3 
003] 808° 
031 06 CNXS$NEW_CSB:: 
90 031 0 MOVB #CSB$K_CONNECT,- ; Set state 
43 A5 O83 08 CSB$B_STATE(RSS 
19 03 509 BSBB CNXSCONNECT : Request connection 
0 037 510 RSB ; Unable to allocate memory 
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-SBTTL CNXSCONNECT = Connect to remote system 
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FUNCTIONAL DESCRIPTION: 


This routine is called to initiate a connection to the 
connection manager on a remote system. 


CALLING SEQUENCE: 


JSB CNXSCONNECT 
IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 
RS is address of initialized CSB 
OUTPUT PARAMETERS: 


1 
18 
14 
1 
7 
15 
0 
4 
0 
1 
2 ¢ NONE 
: ¢ COMPLETION CODES: 
§ NONE 
00 3 SIDE EFFECTS: 
83 40 RO-R5 are destroyed 
0 41 
$038 8a§ * 
3 rt CNXSCONNECT:: 
0 46 : Try to connect 
3 rt ; This thread may be suspended here 
03c4 30 $0 49 ° BSBW CNCT_DATA ; Set up connect data 
50 68 A5 00 50 MOVL CSBSC_SB(R5),RO ; Address of SB 
51 CONNECT MSGADR = CNX$RCV_MSG,- : Connect to system 
0 26 ERRADR = CNXSERROR,- 
0 5 LPRNAM = PROC_NAME.- 
0 54 RPRNAM = PROC_NAME.- 
0 33 RSYSID = SBSB-SYSTEMID(RO) ,- 
§ INITCR = #SEND _CREDI TS - 
0 5 CONDAT = CSBSB_CNCT.(R S,- 
28 AUKSIR = (R5) 
03 50 58 0 5 BLBS RO,5$ 
O4DE 4 $9 $$: BSBW CNX_STATUS_CHECK ; Check for bugcheck request 
78 366 STATE_DISP <<CONNECT, 100$>,<RECONNECT,200$>,<DEAD , 3008>> 
0B 50 2 65 10$: BLBC R ; OK if connect failed 
50 8004 BF 3¢ 64 MOVZWL #<CLMDRSSM_DRS ! - : Disconnect status 
65 CLMDRS$C_PROTOCOL>,RO 
66 15$: DISCONNECT ; Break anomalous connection 
of 20$: RSB ; Drop thread 
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50 81046 8F 3 94 90$: MOVZWL #<CLMDRSSM_DRS ! - 3; Disconnect status 
38 CLMORSSM FATAL ! - ; Bugcheck request 
FLBORSSC_PROTOCOL> AO 
, 2 99 BRB $ 
388 
98 4; 
= o 3; Initial connect attempt completed 
98 a 3 Re | is address of connection message 
98 8 ; is address of COT 
98 79 ; R4 is address of PDT 
4 9 3 RS is address of CSB 
4350 €9 0098 : 1008: LBC : Connection error 
9E ASSUME atte VERNUM EQ CNCT $6 ceocecs 
9E 4 ASSUME CSB$B_VERN EQ CSBSB_ECOLVL+1 
20 Ag 80 9E 5 MOVW SCSCA nose. SNDDAT #cNCTSE_ ECOLVL (R2) - ; Store remote side's 
40 A ui § csesB BeEgek (R5) P rotocol version number and ECO level 
§ Ag 90 A MOVB SCSCMGSB ENDDAT#CNCTSB Atk Eincrs - ; Store remote side's 
A A 8 CSBS$B RERACKL IM(RS) : ACK Limit 
O37F 3 A 9 BSBwW CNCT_CHE ; Check connect data 
&6 50 € AB 0 BLBC RO,90$8 ; Bugcheck remote node 
; OAE 591 ASSUME cs6si L_POT €0 CSBSL _CDT+4 
OC AS 53 7D OOA 38 MOVQ R CSBSt mS Abpea ; Store CDT and PDT address 
01 90 008 9 MOVB $3 CSB OPEN ; Mark connection open 
43 AS 0B4 594 $8 STATE (RS) 
¢ 0D ot 95 PUSHL ; Save connection message addr 
52 68 A DO 008 38 MOVL Bet SB(R5),R ; Address of System Block 
5218 Ag i 0B 9 MOVAB g Sy STERIS(R2) Ra S Address of destination systen IS 
51 644A D OC 98 MOVL eSeet CLUS (R5),R1 3; Address of cluster block 
51 OC Al DO 00C4 99 MOVL hel POLL_CTX(R1),R1 ; Address of SPPB 
50 D4 00C8 600 CLRL 3; Disable polling 
00000000'GF 16 OOCA 601 JSB 6 SCSSPOLL MODE : Disable cat this system 
04 BA OOD on6 POPR es ae ; Restore ear te _noseage addr 
50 O000°CF 9 OD 60 MOVAB CNC 3; Connect messa dress 
FESG: 0D? 604 BSBW Ss CNX SECON Lee CHANGE : Note ee ottonttinn change 
FF23° ODA 605 BSBW CNXSRESEND MSGS : Initialize connection 
FF20° ODD O06 BSBW CNXSCON_NEQSYS : Inform configuration | manager of new system 
05 Bey ets RSB ; Return 
+3 rst 150$: 3; Come here on failure to make a connection. 
0424 30 Fy 611 BSBW CNXSDECREF CNT ; Deallocate CSB and return 
0 E4 $16 RSB 
E 1 
E 614 : 
: gi? 3 3; Reconnect completed 
3A 50 €9 OOE $13 500s:  BLBC 0,2208 
E 618 ASSUME C68. L_PDT EQ CSBSL_ CDT+4 
Oc AS 2 E 61 mMOva CSBSL_CDT(RS) Store CDT and PDT address 
gs 9 30 EC 620 BSBW nee T_CRECK Check data following reconnect 
5 8 E oe .. Ory BLBC RO, 280 Other node should crash 
4D 60 AS EO Fg 66¢ BBS #CSBSV LO LONG BREAK, - :D sconnect it long break 
F 6 3 CSB TUS(R5) ,70$ has been seen 
33 2 90 O0F7 4 MOVB S¢SCh nGSB AINDDATSENCTSB sabes (Re =” Store remote side's 
A FA 625 CSB$B ORERACKLAIMCRS) ; mit 
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; Mark connection open 


; Resume activity on if quorum 
ddress of reconnect message 
_ configuration change 
t last hee sequence number 
t .ge. last one? 
Branch if not and pata 
Store updated num 
Send pending nesseee, initialize connectio 
Invalid acknowledged sequence number 
renee = ne break has already 
Heve * a “retried for long enough? 
Not timeout — yet 


0 sec = 10000 ms timeout 


1 sec = 1000 ms 


3; Disconnect status 


Branch to common code 


3; Other node should withdraw 


Break connection 


Drop connection 


acs $k OPEN 
free E (RS) 

BSBW ttt CK ay RUM 
MOVAB RECNC ; 
BSBu aKSCORFig. CHANGE ; 

SCSCMGS$B SNDDAT+CNCTSW_ ntvbSEanath 2 
SUBW3 CSBSW_ACRRSEQNM(RS), 

RO.R1~ 
BLSS 216$ : 
MOVw = RO, fSBS¥AACK ACKRSEGNM(RS) : 
BSBW CNXSRESERD_MSGS : 
RSB 
BUG_CHECK CNXMGRERR, FATAL ; 
BBS #CSBS : 

CSBSL astaTusins). 40s : been 
CMPL G-EXESGL : 

SSBSL_ fimepuTiRs) 
BLSSU $ : 
BSBW LONG ete 3 Leng break s 
MOVZWL #10000,R4 : 
BRB 260$ 
MOVZWL #1000,R4 : 
BSBW CNXSWAIT : Start timeout 
RSB 
MOVZWL #<CLMDRSSM_DRS ! - 

SLMDRSSC_ PROTOCOL>,RO 
BRB : 
MOVZWL 

“CLMOR RSSM_DRS ! - 

: _LADRSSC- “REMOVED - 
BSBW CAXSDISCONNECT ; 
RSB 
BSBW 3=Ss«108 ; 
BSBW DEAD_NODE ; Make node die 
RSB 3; Recurn 
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-SBTTL CNXSRCV_CNCT_MSG = Receive CONNECT message 
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; FUNCTIONAL DESCRIPTION: 
This routine is galiee by SCS when a incoming CONNECT occurs 
for ys. First the List of CSBs is scanned to see if we had a 
previous genset es to that system. If we did then if the 
software incarnation is the same we have to rgoene any messages 
that haven't been rece yee. If the software incarnation changed, 
then we have to do a failover. If we don’t have a CSB for that 
system then one is created. 

CALLING SEQUENCE: 
JSB CNXSRCV_CNCT_MSG 

; INPUT PARAMETERS: 

Re Address of connect request message 

R Address of CDT 

RG Address of PDT 

; IMPLICIT INPUTS: 

None 

; OUTPUT PARAMETERS: 

None 

; IMPLICIT OUTPUTS: 


Completion codes returned to remote system if connection 
is rejected: 


SS$_REJECT Connection rejected. R1 is in CLMDRS format. 
SS$_INSFMEM Unable to allocate memory 


COMPLETION CODES: 
; None 

; SIDE EFFECTS: 
None 


NXSRCV_CNCT_MSG: 
0$: MOVL COTSL_PB(R3) ,R1 ; Get address of path block 
MOVL PBSL_SBLINK(R1),R1 : Get address of system block 
BSBW CNXSCOOKUP_CSB : Find CSB 
BLBC RO, : Branch on error 
TATE _DISP <<NEW, 200$>, <CONNECT, 100$>, <RECONNECT, 300$>,<WAIT,400$>> 
BUG_CRECK CNXMGRERR, FATAL 3; Unexpected connect received 
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r n 
Cc M 
) 5 MOVZWL #<CLMDRSSM_DRS ! = ; Protocol error 
D 3 CLMDRSSC_PROTOCOL ! - 
Dd : EL EPRSSR FATAL? RO 
4 ; BRE $ 
208: MOVZWL #<CLMDRSSM DRS ! - i; Protocol version error 
GLRDRSSC_VERSION>,RO 
BRB $ 
4 30$: MOVZWL #<CLMORSSM_DRS ! - 3; Nonfatal protocol error 
9 ELRORSSC_PROTOCOL> RO 
9 BRB $ 
40$: MOVZWL #<CLMDRSSM_DRS ! - ; Fatal protocol error 
CLMDRSS TAL ! = 
CLMDRS$C_PROTOCOL>,RO 
50$: pester ; Reject the connection 


Connect request from system to which we are connecting 
Compare system ids and allow the oxstes with che lower id to CONNECT 
and the one with the higher id to ACCEPT. 
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50 8006 BF 63C 
ec wn 
50 8004 8F SC 
05 11 
50 8104 8F «oC 
05 
O¢ 8B 
3g 68 A 
00000018'GF 18 A2 06 9 
oc 
DD 


mc ee ak ae a ad et ts ts = = = = ts — sd 2 2 2 Sd 2 ) 2 —) —) s as 1 1 2 a 2 


9 
9 
9 
94 
94 
94 
94 
94 00$:  PUSHR #*M<R2,R3> ; Save R2 and R3 from CMPC3 
96 MOVL CSBSL_$B(RS) R2 ; Address of System Block 
Ok CMPC3 #SBSS"SYSTEMID, - ; Compare system ids 
A SB$B_SYSTEMID(R2), - 
A G*SCS$GA LOCALSB+SB$B_SYSTEMID 
BA A POPR #°M<R2,R3> ; Restore R2 and R3 
1E ° BGEQU§ 308% ; Remote is higher - reject 
A7 ; Connect request -- Supegtes to be from a new Hs § bag 
A? : If the connect request is not from a newly booting system, we assume 
A7 3; that the local system has booted twice with the same incarnation 
A? 3 number. In this case, we reject the connection and hope that the other 
A? 3; node will eventually see our attempts to connect and realize that this 
4 3 node has duplicated its incarnation number. 
22 A291 A7 06 200$:  CMPB SCSCMG$B_SNDDAT+CNCTSB_TYPE(R2).- ; Verify remote side is doing 
01 AA 6 #CNCTSK_INITIAL 3 @ new CONNECT 
07 = 12 AB o8 NEQ & > It's not = don't allow a connect 
AD $ ASSUME CNCTSB_VERNUM EQ CNCTSB_ECOLVL+1 
AD 9 ASSUME (CSB$B PERWUR EQ CSB$B_ECOLVL+1 
20 ne B0 AD 7 VW SCSCMGS$B_SNDDAT+CNCTSB_ECOLVL(R2),- ; Store remote side's 
40 A B as CSB$B ECOLVL(R ) i proto ol version number and ECO Level 
§ Ag 90 B 7 MOVB SCSCMGS$B SNDDAT+CNCTSB_ACK Im(RS) - ; Store remote side's 
A B 74 CSB$B_REMACKLIM(RS) 7 ACK Limit 
b278 30 B 75 BSBW CNCT GHECK 3: Check connect data 
cE 5 4 BA i BLBC RO,40 : Branch to bugcheck remote node 
BD 77 VB ac SSK ACCEPT, - : Set state 
43 A BF £8 CSB$B_STATE(RS) 
a C1 7 BSBB CNXSACCEPT ; Accept connection 
0 &? i RSB 
C4 3 
C4 f 3; Reconnect request from a system to which we are reconnecting 
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v04-000 CNXSRCV_CNCT_MSG = Receive't CONNECT messa 328 1384 88 £67; 3 USYSLOA.S A.S SCNXMAN. MAR; 1 ° (8) vO4 
1C4 : . 
0 1€4 $00$: PUSHR Homer? R3> ; Save R2 and R3 from CMPC3 
5 68 AS 09 106 MOVL L-$B(R5) R2 3; Address of System Block 
00000018 ' GF § A2 06 : ich $ cMPC3 #3bes SYSTEM{D = 3; Compare system ids 
1D f § grt iit A LOCALS8+S058, SYSTEMID 
OC BA 01D 0 POPR 3; Restore R2 and R3 
AD iE 1 198 BGEQU 3; Remote is higher - reject 
100 + ; Connect request from a system that we are timing out 
22 A 91 107 $3 loos: CMPB seNcraKe SUBS ATSENCTSO.. re REC Verify remote side is doing 
1DA : #ENCTSK RECONN ECONNECT 
is 108 79 BNEQ 430$ ; it not -- handle special situation 
0298 3 1DD £38 BSBW RECNCT -f 3 feck data Soh Lowine reconnect 
9F 60 AS 00 €E0 i 444 BBS $3 + Sag gt Longe figs a «.. ; Reject if long break has been 
1E 01 ASSUME tart ie VERNUR. fa" “ENETSB ECOLVL+1 
1E 8 ASSUME cSBSB. RNUM EQ CSB$B8_ETOLVL+ 
20 ae B1 O1E5 CMPW SCSCMG $5 SNDDAT ENC TSB. ECOLVL(R2),- ; Are we speaking the 
40 A 1€8 04 g5088_€C0 ; gene protocol as before? 
91 «1 1EA 5 BNEQ 0$ atal error 
$3 Ag 9 1EC $ MOVB SCSCMGSB ett si Nextinie) -; Store remote side's 
A 1EF CSB8$B8 aor (R5) : 
43 08 90 Fl 38 MOVB th tt CEPT. 3 Set esate 
2c A BO fe 10 MOVW Batam et TO ORATSCNCTSU -RCVDSEQNM(R2) , - ; Get last received 
5 1F8 11 RO ; sequence number (of ours) 
30 A A3 O1F9 \¢ SUBW3 CSBSW_ACKRSEQNM(RS) ,- ; Verify it's greater than or equal to 
Ae GENS ++ Ee ecto 3be : tis ape 
0 06 12 BUG_CHECK CNXMGRERR,FATAL ; *** Sequence number error 
30 AS 50 8 $ i3 420$: MOVW RO,CSBSW_ACKRSEQNM(RS) It's ok - store it 
032D 08 18 BSBwW DELETE TOE Sloue out TQE 
7E AS (02 0 1 MOVB #CNCTSR_RECON Flag this as a reconnect 
F 0 CSB$B ERETSCNCTSB, TYPE ds 
11 19 F 1 BSBB CNXSACCE 3 Accept connection 
0 11 § RSB 
13 85a 
1 5 ; Get here is this node expected a re-connection and instead received 
1 § : an initial gonnect request. This happens if the remote node has rebooted 
1 3 with a duplicated software incarnation number. Tor 8°93 wo from this 
1 3 3; situation, the software incarnation number in the CSB ditied ond 
1 3; this soar ian is re-entered. The old CSB will be marked ‘DEAD’. 
' ? 3; A new CSB will be formed and the connect request accepted. 
32 0 021 : 4308: BSBW DEL ELETE : Clean out TQE 
50 38A 1 MOVAQ CSB$Q SUTHCARN(RS). RO ; Address of stored software incarnation num 
80 60 OD 19 4 MCOML (RO),TRO)+ : Invalidate software incarnation number 
60 $3 1C 5 MCOML (RO); (RO) : so that a new CSB will be formed 
FF 1F 6 BRw 10$ ; Re-enter this routine 
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~SBTTL CNXSACCEPT = Accept connection from remote system 


+ 
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FUNCTIONAL DESCRIPTION: 


This routine is called to accept a connection from the 
connection manager on a remote system. 


CALLING SEQUENCE: 


JSB CNXSACCEPT 
IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 
ef is address of connection message 
R35 is address of COT 
R4 is address of PDT 
RS is address of initialized CSB 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


RO-R5 are destroyed 


Be Se Se Ge Se Ge Ge Ge Se Ge Ge Ge Be Ge Se Se Ge Sse Ge Ge Se Se Se Se Se Se Se Se Sete Se Se 


CNXSACCEPT:: 


: try to accept 
; This thread may be suspended here 


01DA 30 BSBW 
ACCEPT 


oe 

2 

— 

— 

oO 

pe obo] 
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06 30 E& BLBS RO, 10$ : Branch on success 
F PUSHR #M<RO.R1.R2.R3,R4,.R5> : Save registers 
10 BSBB 3; Clean up failed success 
3F 0S sUéBA POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 


10$: 
STATE_DISP <<ACCEPT, 100$>, <REACCEPT, 200$>> 
BUG_CRECK CNXMGRERR,FATAL ; Bugcheck 


3; Accept attempt failed. 
; Clean up by Peject ng a connection based on the Listening CDT. 
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5: 
os tw © $8 208: MOVL R2,R3 ; Address of Listening CDT 
9 REJECT : Reject the request 
05 38 RSB : Terminate the thread 
° 3; Initial accept attempt completed 
; j 3 R3 is address of CDT 
4; R4 is address of PDT 
9 ; 5: RS is address of CSB 
2F 50 «ED é3 5 100$: LBC RO 1508 ; ACCEPT error 
C 3 8 ASSUME C88 POT €Q CSBSL_CDT+4 
9 AS 5 7D $f MOVa CSB$L_C COT(RS) 3; Store CDT and PDT address 
68 A DO 910 MOVL raat te SBTR5) ,R2 ; Address of System Block 
5 18 A 9 74) «911 MOVAB obse SY STEMIO(R2), R2 ; Address o destination system ID 
2} 4A D 78 35 MOVL tub B3C CLUB(R5) ,R1 3; Address of CLUB 
1 C Al OD 7 1 MOVL C_POLL_CTX(R1),R1 ; Address of SFB 
04 4 914 CLAL : Disable polling 
00000000 ' GF 16 915 JSB ited MODE ; Disable Bolling this system 
90 318 MOVB #CSBSK_OPER,- 3 Mark connection open 
43. AS A 91 CSBSB_ KATATE (RS) 
50 0000'CF 3 C 213 MOVAB Acee T- R ; Address of accept message 
FD6C' 91 «91 BSBW CXS CONE 16. CHANGE ; Note configuration change 
FD69° 30 94 920 BSBW ENKSR ESEND MSGS ; Initialize for sending messages 
FD66" 30 97 921 BSBW CNXS$CON ENEGSYS : Inform configuration manager 
05 6 4 § RSB 
026A 30 98 924 150$: BSBW CNXSDECREF CNT ; Deallocate CSB 
05 8 9E 925 RSB 
oF 959 
oF 2 8 3; Reaccept attempt completed 
9F 930; R3 is address of CDT 
9F 931; R4 is address of PDT 
x 9 gi 3 RS is address of CSB 
1¢ 50 £9 029F 3 4 500s: Lec RO 2108 : Branch on failure 
A2 935 ASSUME csé L_PDT EQ .CSBSL_CDT+4 
OC AS 53 7D A S § MOVQ R3,CSBSL CDT(RS) 3; Store CDT and PDT address 
1¢ 60 A5 00 €0 0206 9 BBS #CSBSV_LONG BREAK, : Branch if long break in connection 
AB 3 8 csBst STATUS(R5) 2203 
01 90 AB MOVB #CSBSR_OPEN,- 3 Mark connection open 
43 AS “aD 340 CSB$B_STATE(RS) 
FD4E* 30 AF 41 BSBW ENKSCRE CK QUORUM ; Resume activity on if quorum 
50  0000'CF Be 4) MOVAB REACCPT_MSG,RO ; Address 9 1 reaccent message 
FD4G: BP 94 BSBW  CNXSCONFIG_CHANGE : Note configuration change 
FD43° BA 44 BSBW CNXSRESEND_MSGS ; Resend outstanding messages 
Be rf RSB 
54 O3€8 8F B 23 210$ MOVZWL #1000,R4 ; Wait 1 sec = 1000 ms 
OOA4 C rt: BSBW CNXSWAIT 3; Enter wait state 
: 4 RSB 
50 800A 8F 3C C7 39 2208 MOVZWL #<CLMDRSSM_DRS ! - 
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cc 26 CLMDRS$C_REMOVED>,RO 
63 12 + 2 Bsee CNXSDISCONNECT ; Break connection 
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-SBTTL CNX$OI = Disconnect from Node and Gogueet it to Bugcheck 
-SBTTL CNX$DI Btsconnect from Node Removed from Cluster 
- SBTTL I OL = Disconnect from Node for protcol reasons 


+ 
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FUNCTIONAL DESCRIPTION: 


These routine are called to break a connection with a remote node and 
return some informational status. 


CNXSDISC_BUGCHECK: Request the remote node to bugcheck 
CNXSDISK_REMOVE: Status indicates that the node was removed from the 


CNXSDISC_PROTOCOL: Disconnect for protocol reasons, reconnect as convenient 

CALLING SEQUENCE: 
Suess tune 

JSB CNXSDISC_P 
IPL is at SCS fork 
INPUT PARAMETERS: 

R5: Address of CSB of removed node 
IMPLICIT INPUTS: 

None 
OUTPUT PARAMETERS: 

None 
IMPLICIT OUTPUTS: 

None 
SIDE EFFECTS: 

RO-R1 destroyed 


Se Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se He Se Se Gets Sete Se 


-ENABLE LSB 


CNXSDISC_BUGCHECK: : 
ROVZWL tt i © 


3; Disconnect status 
LMDRSSM_FATAL ! = Fatal 
sgeren ese PROTOCOL. RO 


BRB ; Join common code 
CNXSDISC_REMOVE:: 
AOVZWL testi tay DRS ! - 
CLMDRSS$C_REMOVED,RO 
BSBB DISC_STATUS 
BSBW LONG_BREAK 


3; Disconnect status 


; Disconnect using status in RO 
; Mark a long break (may already be done) 
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RSB 


CNXSDISC_ PROTOCOL: : 


MOVZWL 


DIS. STATUS: 


PUSHR 
STATE. 
BRB 


BSBB 
POPR 


- DISABLE 


SCLMDRSSM_DRS ! - 
CLMDRSS$C"PROTOCOL, RO 


&*M<R2,R3,R4,R5> 


D1sp <<OPEN, 100$>> 
90$ 


CNXSBREAK 
#*M<R2,R35,R4,R5> 


L$B 


; Return to caller 


3; Disconnect status 


: Disconn--* .tatus in RO 
3; Save non-volatile Fogisters 
; Connection is currently open 


; Break connection, status in RO 
; Restore registers 
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»SBTTL CNXSERROR = Connection error 
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FUNCTIONAL DESCRIPTION: 


This routine is called bY SCS _ when a connection breaks. 
This routine calls CNXS$C yr to deal with outstanding 
messages and then does a DISCONNECT. A timeout is then 
requested at the conclusion of Munich the connection will 
be reattempted. 


CALLING SEQUENCE: 


JSB CNXSERROR (Called from SCS) 
IPL is at SCS fork level (8) 


INPUT PARAMETERS: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Se Se Se Ge Se Se Se Gese 


ter 
ROR 
F6 1 
F6 1 
F6 1 
F6 1 
F6 1 
F6 1034 
F6 1035 
F6 1 § 
F6 1 
F6 1 8 
F6 1 
F6 1040 
imi 
F6 4 : 
F6 1044 
F6 1045 
FS joc? 
O2F6 1048 RO Contains error status (SS$_DISCONNECT or SS$_VCBROKEN) 
8 F6 1049 R1 Additional status (disconnect reason or virtual circuit 
F6 1050 sroken reasori) 
O2F6 1051 R3 Address of CUT 
8 re : § R4 Address o¢ PDT 
0 re ! : IMPLICIT INPUTS: 
Hd aise 
5 F6 1058 ; OUTPUT PARAMETERS: 
O2F6 1059 
BS et boom 
F6 1 66 IMPLICIT OUTPUTS: 
F6 106 
Fe }08s voit 
re \ $6 SIDE EFFECTS: 
F6 1 re: RO-R5 destroyed 
F6 1 : 
FS yon 
Fe 1 % CNXSERROR: : 
55 5¢ bo F 107 MOV COT$L_AUXSTRUC(R3),R5 ; CSB address 
; 9 FA 1074 PUSHR #*M< 4 Ri R52 ; Save registers 
50 8004 8F C FC 1075 MOVZWL FCLMD RSSM_DRS ! ; Disconnect status 
9 6 CLMORSSC — RO 
96 10 1 107 BSBB CoRR ach a 3 Use common disconnect code 
2 A 1 4 POPR #*A<RO ; Restore registers 
024E 0 107 BSBW 3s CNX <eratUge a Neck : Check for bugcheck request 
1080 RSB 
| i 
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~SBTTL CNXSBREAK = Cleanup and Disconnect SCS Connection 


a 
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FUNCTIONAL DESCRIPTION: 


This routine is called when a connection breaks or when a 
connection is to be broken. It calls CNXSCLEANUP to deal 
with outstanding messages and then does a DISCONNECT. 

A timeout is then requested at the conclusion of which the 
connection will be reattempted. 


CALLING SEQUENCE: 


JSB CNXS$BREAK 
IPL is at IPL$_SYNCH = IPL$_SCS 


INPUT PARAMETERS: 


RO Contains disconnect code 
R5 Address of CSB 
IMPLICIT INPUTS: 
None 
OUTPUT PARAMETERS: 
None 
IMPLICIT OUTPUTS: 
None 


SIDE EFFECTS: 
RO-R4 Destroyed. 
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CNXSBREAK: : 
50 OD 0 PUSHL RO 3; Save disconnect status 
18 60 AS) 600 «£0 #CSBSV_LONG PREM > ; Branch if long break 
1 CSB$L_STATUS(R5) ,20$ 
50 00000000'GF 3c 031 MOVZWL G*CLUSGW_RECNXINT,RO =; Max. retry in seconds 
48 AS) 00 OO'GF 50 (C1 1 ADDLS =RO g EXESGL ABSTIM, - ; Time at which to stop retries 
CSBSL_TIMEOOT (RS) 
50 0000'CF 43 MOVAB CNXERROR_MSG,RO ; Address of message 
FcD8" 3 208 BSBU = CNXSCONF IG_ CHANGE ; Note configuration change 
01 BA POPR #*A<RO> ; Restore disconnect status 
A ASSUME CSBSL_PDT £0 CSBSL_coT+s 
53 Oc AS 7D A ova CSB$L_CDT(R5),R 3; Fetch CDT and PDT addresses 
01 10 : BSB8 CNXSDTSCONNECT : Disconnect, status in R 


CNXMAN er Connection Mana 16-SEP-1984 00:24: AX/VMS Macro V04-00 e 
v04-000 CONNECT = D sconnett. from remote g: EP 138¢ 80:53:29 LOYSLOA. SRE CNXMAN.MAR; 1 — (9) 
} 13 -SBTTL CNXSDISCONNECT = Disconnect from remote system 
1 ii2y 3** 
114 : FUNCTIONAL DESCRIPTION: 
1 #11464: This routine is called to disconnect from the 
! ie ; connection manager on a remote system. 
1142 : CALLING SEQUENCE: 
1 : JSB CNXSDISCONNECT 
: 1} ; IPL must be at IPLS$_SYNCH 
1 : INPUT PARAMETERS: 
1 $11 4 : R is disconnect statu 
} i : is address of initialized CSB 
1 5 : OUTPUT PARAMETERS: 
ape 
1161 + COMPLETION CODES: 
BE ses 
1165 : SIDE EFFECTS: 
1 $11 } : RO-R5 are destroyed 
1 1398 3 
118 
1 1159 CNXSDISCOWNECT:: 
43 a5 07 1% vB #CSBSK_DISCONNECT, - ; Set disconnect state 
117 CSB$B_STATE(RS) 
50 1174 PUSHL RO ; Save status 
4} 1175 BSBW CNXSCHECK QUORUM : Block activity if quorum Lost 
FCC3" A 1128 BSBW CNXSPRE_CCEANUP ; Cleanup outstanding messages 
01 p We : POPR @*M<RO> ; Restore status 
F 1158 : try to disconnect 
f 1 ; This thread may be pre here 
F 1182 ° ASSUME CSBSL_POT csBSL_ CDT+4 
53 OC A5 11 MOVa CSBSL_CDT(R ;. R 3 Fetch cor and POT addresses 
43 1184 5S NECT ; Status in RO, always succeeds 
49 1185 STATE _DISP <<DISCONNECT, 100$>> 
i 5 BUG_CRECK CNXMGRERR, Site’: ; Invalid state 
4 11 
2 i ? Soft disconnect attempt completed 
FCA9" 11 ioos: BSBW CNXSPOST LENE Finish cleanup of outstanding messages 
11 ASSUME CSBS$L Por Q CSBSL_CDT+ vi 
Oc AS 11 CLRQ CSB a T(R5) ; Clear CDT and PDT address in CSB 
03 60 AS 00 A 1194 BBC #CSB$0_LONG_BREAK, - : Branch if no long break yet 
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sconnett from remote a eset 1 8? ‘63 39 f 
CSBSL al eae 110$ 
BSBW perat ALA 


3; Fail o 
$:  MOVZWL 
BSBB CNXSWAIT 


3; Delay 
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FUNCTIONAL DESCRIPTION: 


This routine is called to begin a timeout before ag hn 
to reconnect to the connection manager on a remote system. 


CALLING SEQUENCE: 


JSB CNXSWAIT 
IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 


R4 is the timeout period in milli-seconds 
RS is address of initialized CSB 


OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO-R4 are destroyed 
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NXSWAIT:: 
09 «690 MOVB #CSBSK_WAIT,- ; Set connection state WAlTing 
43 A5 CSB$B_STATE(RS) 
je Pe MOVZWL #TQESR_LENGTH,R1 : Size of timer queue entry 
00000000' GF if JSB G“EXESALONONPAGED ; Allocate one 
60 2 E BLBC RO,RETRY_CONNECT ; No memory, so forget timeout 
0D PUSHL 3; Save CSB address 
gs A 1 MOV R1,TQESW_SIZE(R2) Store size 
AA F MOVE #OYNSC_TOE,TOESB_TYPE(R2) ; Store type 
10 A aa. MOVL R5, TOESL_FR3(R2) ; Store CSB address as fork reg. R3 
14 A2 D4 CLRL TQESL_FR&(R2) : Save zero as fork reg. R4 
44 AS i) MOVL R2,C BSL_TQE(RS) ; Save TQE address in CSB 
55 MOVL R2,R ; Move address of TQE 
08 AS MOVB #TOESC_SSSNGL, TQESB_ROTYPE(RS) 3; Store type of timer queue entry 
0085 A BB‘ AF E MOVAB Bo Tine Our TOESL_FPCTRS) ; Store address of timer fork pre ess 
53 00 ' 4th F 54 A EMUL R4,#10*1000 #0,R3 3; Get milli-seconds and cvt to 100 ns. units 
0 00'GF 7D MOVG  G*EXESGQ_SYSTIME,RO : Get current time 
oe: ADDL R3,R 3; Add to current time 
1 4 D ADWC R4,R 
00000009 GF 1 JSB G*EXESINSTIMQ ; Insert in timer queue 
5 BED peat R5 ; Restore CSB address 
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3 — here as a timer fork process to retry the CONNECT 
nputs: 


£58 address 
QE address 


aad 


; Address of 
DEANONPAGED : peatiocate t 
~FQE(R5) ; Clear po nter to TQE 
STATE(R5S),= ; Are we in wait state? 


BSR_WAIT 
; No, just return 
RY_CONNECT ; Do the rest in a subroutine so that 
; CONNECT can return here 
“EXESAL_TQENOREPT,RS ; Use non-repeating timer queue entry 


RO ; Address of timer queue entry 
es is 


55 


=" 
o 
bed 


: Must ghees for change to remote system that may have occurred during 
3; the j meout. Unlike other situations, there is no connection to break 
3; to give notification of such an event. 


RETRY_CONNECT: 
MOVL CSBSL_SB(R5) ,R1 ; Address of System Block 
BSBW  CNX$LOoKuP_cSB : Find or allocate a CSB and 
; as a side effect, handle old CSB 
BLBC RO,20$ : Can't of igcate (sb 
STATE_DISP <<NEW, CNXS$NEW_CSB>, <WAIT, 100$>> 
BUG_CRECK CNXMGRERR, FATAL 


RSB 
MOVB coun eat 3; Change to RECONNECT state 
MOVB CONNECT 


TSCNCTSB.TYPE(R 
BSBW ECT 3; Request connection 
RSB 3 Unable to allocate memory 


~ 


j Flos this as a reconnect 
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v04-000 - Setup Connect Date in CSB gr E-13be 90:83:38 UOYSLOA. SREICNXMAN. MAR: 1 - (9) 
~ -SBTTL CNCT_DATA = Setup Connect Data in CSB 

FUNCTIONAL DESCRIPTION: 


Set up by CSBSB_CNCT area in preparation for requesting 
or accepting a connect ‘en. 


CALLING SEQUENCE: 


BSBW CNCT_DATA 
IPL must be at IPLS_SCS 


INPUT PARAMETERS: 

R5 Address of CSB 
OUTPUT PARAMETERS: 

None 
SIDE EFFECTS: 

RO and R1 are destroyed. 


WO 
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NCT_DATA 
50 7C AS MOVA CSB$B_CNCT(R5) RO ; Point to connect data area 
51 ° AS CSBSL_CLUB(R5) ,R1 ; Address of CLUB 
04 AO 0 Al MOVW CLUB$@_QUORUM(A1), ° ; Cluster quorum 
CNCTSW_QUORUM(RO) 
06 AO 22 Al MOVW CLUBSW_VOTES(R1), = ; Cluster votes 
CNCT$W_VOTES(RO) 
08 AO 24 Al MOVW CLUBSW_NODES(R1), - ; Cluster nodes 
CNC TSW" NODES (RO) 
ASSUME CSBSM_CONG BREAK EQ aye LONG_BREAK 
ASSUME CSBSM_MEMBER EQ CNCTSM MEMBER 
ASSUME CSBSM eevee EQ CNCTSA_REMOVED 
0B AO 60 AS F8 8F BICBS #*C<CSBSM_LONG BREAK ! = 
CSBSM_MEMBER ! - 
CSBSM BeOyED>« . 
esas STATUS(R5S), = ; Fill in status bits from CSB 
CNCTSB_CNXSTS (ROS 
ASSUME CLUBS eLus Tre EQ CNCTSM_CLUSTER 
OA AO 1C Al FE 8F BICB3 f Gest gbu TER>, = 
CLUBSL_FLAGS(R1), - ; Fill in status bits from CLUB 
CNCTSB-CLSSTS(ROS 
OC AO 2€ AS MOVW CSBSW_RCVDSEQNM(RS), - ; Last message received 
CNCTSQ_RCVDSEQNM(ROS 


at a 9 4 9 a ss a bs a a a a a tt 
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~SBTTL CNCT_CHECK = Verify Connect Data 


FUNCTIONAL DESCRIPTION: 


ow 
ze 
me 


e ti 
CNCT 


Un" 


Evaluate received connect data vs. connect data 
sent or about to be sent. 


CALLING SEQUENCE: 


BSBW CNCT_CHECK 
IPL must be at IPL$_SCS 


: INPUT PARAMETERS: 

; Re Address of received connect data message 
3 R Address of CSB 

: OUTPUT PARAMETERS: 

; RO is status 

3 TRUE implies all is well, ACCEPT or proceed with connection 
3 FALSE implies incompatibility, REJECT or break connection 

; requesting remote node to BUGCHECK 

: SIDE EFFECTS: 


This node will BUGCHECK if incompatible with the remote node and 
it appears ‘‘best’’ that this node exit. 


DOOOCSOSGOOOOODSOOOSOOOOOOOOOOOOOO 
PRR RR RRR RP PRR RR PPR PPP PPP PPP EE 


Ri is destroyed. 


CNCT_CHECK: 
PUSHR #*M<R2,R3,R4> ; Save registers 


3; First, check message size of remote system against size required by 
; clusters. 


1¢ =—BB 


54 6h 3 DO 

53 CA 9E 

52. 20 A2-o9E 

01 A2 41 AS 91 
ae 


Bot CLUBERS) Re ; Address of CLUB 

B$B_CNCT(R5) ,R3 3; Address of my connect data 
SCMG$B_SNDDAT(R2),R2 ; Address of remote connect data 
BS 

CT 

$ 
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MOVL cS 

MOVAB CS 

MOVAB SC * 

CMPB CSB$B_VERNUM(RS), =- ; Compare remote version number to 
NCT$B_VERNUM(R25 : _local version number 

BGEQU 0 ; Branch if remote is >= Local 


Get here is local node has high version nupber than remote node 
If the versions are conpatts.. branch to 50$ 

As of now, all differen versions are incompatible. 

If the versions are incompatible, decide whe should crash. 


BBS #CNCTSV_CLUSTER, = ; Branch if remote node is a 
ee CNCTSB_CLSSTS(R2) ,708 ; _ cluster memb 


er 
:; Branch to failure exit 

Get here if version are identical or if remote is a newer (higher) 

protocol than local. 


07 =«+‘'1€ 
28 0A A2 =«200~—=sC#EO 
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CORR RTH NS OC 


RES 
Peer 


ow 
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PPP PPP Pe ee NR er eS me 
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; Check compatibility of message buffer 


G*SCSS$GW_MAXMSG. - 


CMP 
CL SHSGSR_MAXMSG 


BLSSU 
MOVL 
CMPW 
BGEQU 
BBS 


CLRL 
BRB 


MOVL 
POPR 
RSB 


: Get here when node must leave cluster 


BUG_CHECK CLUEXIT,FATAL 


BUG_CHECK 


BUG_CHECK 


#CLSASGSK_MAXMS 


WCNCTSV_CLUSTER, = 
CNCTSB_CLSSTS(RO) 80S 


CLUEXIT,FATAL 


CLUEXIT, FATAL 


"SrSEP=1984 00:67:15 ESYSLOA.SReSewXmancman:1 §— °%* cZy 


sizes. 


Is local system's maximium message 
size big enough? 

Branch if too small 

SB address qt penoee system 

Compare against maximum cluster 


; Branch if it is big enough 


; Branch if remote node is 


a cluster member 


; Form failure status 
; Branch to common exit 


Success status 
Restore registers 


Leave cluster because of incompatible 
protocol levels 


Remote node is a cluster member with an 
insufficient message buffer size. This 
node may never join, so die. 


Local node has too small value of SYSGEN 
parameter SCSMAXMSG. 
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~SBTTL RECNCT_CHECK = Verify Reconnect Data 
* FUNCTIONAL DESCRIPTION: 


Evaluate received reconnect data vs. connect data 
sent or about to be sent. 


CALLING SEQUENCE: 


BSBW RECNCT_CHECK 
IPL must be at IPLS$_SCS 


INPUT PARAMETERS: 


R5 Address of CSB 
R2 Address of SCS connect message 


OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
RO and R1 are destroyed. 


WEY PPP PEW 


Sete Ge Ge Ge Ge Ge Ge Ge Gr Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge > 


Legend: 


: this node is cluster member 
it: other node is <suster member 
rs cluster containing this node has quorum 
T QUORUM pit : cluster containing other node has quorum 
1 henkee b bli connection is to local cluster member 
bit: conneet ton is to local cluster member 
this node has seen long cnx break 
BR EA bit: "ashes node has seen long cnx break 
it: this node has removed other from cluster 
CT REMOVED bit: other node has removed this node from cluster 
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ECNCT_CHECK: 
PUSHR #*M<R2,R3> 3; Save re hovers 

MOVL  CSBSL étup : Get CLUB addre 

MOVAB SCSCRCSB. LETRA tae). R2 ; Kobeees of Faxoleed connect data 


If other node has seen long break, make sure this node counts it as a 
long break also. 


BBC #CNCTSV LONG. gAK 
CNCTSB_CNXSTS(R2) , 108 
BSBB : 


BR 
R 
BBS aM V_CLUSTER ; 
UBS FLAGS (RSS » 5 > _ member 
BBS CSB8V BREAK 3 Branch if long break and bugcheck 
eRe Ese L VSTATUSCR ) : 


02 0B A2 ; Branch if (NOT L) & (NOT L) 


; Treat as though a cong break 
s 


07 1C A3 Branch if local node cluster 


57 60 AS 


- 
oS 
bad 


1 
,80 (NOT C) 
; ALL seems well 


BBC #CNCTSV_REMOVED, - ; Branch if other has not removed us 


ec cee ce me ee cee ce ce ce ee ce cee ee ce cel ce ed ed ed od od od 3 ed 2d od dd dd od 
SSS ISS SS es 
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BBC #CSBSV_REMOVED 
CSBSL STATUS(RS), 50$ 
BBC #CNCTSV 


REMOVED 
CNCTSB VENXSTS(RD) , 50$ 
S Be ch node has removed the other 


CMPW = CNC T$W_VOTES(R 
cLUBSW VOTES(R 
BGTRU 
BLSSU 40$ 
CMPW 86s CNCT$W_NODES(R 2) - 
cLUBSW_ NODES(R3) 
BGTRU 
BLSSU 40$ 
PUSHR #°M<R2,R3> 
MOVL  CSBS$L_SB(RS),R2 
CMPC3 #SBS$S~SYSTEMID 
G*SCSSGA LOCALS$B+ 
SB$B_SYSTEMID(R2) 
POPR #°M<R2,R3> 
BGTRU 70$ 
40$: CLRL RO 
BRB BOs 
508: MOVL  #1,RO 
60$:  POPR #*M<R2,R3> 
RSB 
; : Get here when node must leave cluster 
408: BUG_CHECK CLUEXIT, FATAL 


ROOD NA NEW OOD NANFA O OO NIA NE UR 3 OS OD NA MEW O OONAU EW O OOO 
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a long break. 


; Neither node has quorum: R & r & (NOT 
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CNCT$SB_CNXSTS(R2),20$ ; 
CMPW oust U-VOTES (Ra), ° ; Does remote cluster have a quorum? 
BGEQU SS Me ; Branch if r & q and bugcheck 
20$: BBC $34 ted ptt] 4 "308 : Branch if we nave not removed other 
CMPW cLUBsa. RALtE - : Does local cluster have a quorum? 
BGEQU 40$ 3; Branch if we have quorum -- 
Os: ; other should go: 


In the following two instructions, consider the case where 
ut not vice-versa. 
utgoing messages to the other node be 
“BREAK. should inhibi 
pers es seers the” connect ton manager. 

th error status. 


In these cases 
blocked. 
outgoing messages from ail 


The inhibited messages should 


Branch if we have not removed 
other node 

Branch if other node has not removed 
this node 


Q) & (NOT q) 


Compare available votes 


; Other has more votes, we crash 
; This node has more votes 


3; Compare number of nodes in cluster 


+SBSB_ SYSTEM! 


; Other has more nodes, crash 
; Other nodes has more nodes 


; Remote System Block 


gongere system ID's 
3 Local system ID 
remote system ID 


Failure status means other 
node should bugcheck 


; Restore registers 


; Leave cluster 


; Get here when two nodes not part of a cluster regain a connection after 
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4EA 1 . 
Sta 1382 80s: BUG_CHECK CLUEXIT,FATAL ; Reboot to avoid inconsistency 
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; FUNCTI 


CALLIN 


INPUT 
OUTPUT 
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-SBTTL LONG_BREAK = Long Break in Connection 

ONAL DESCRIPTION: 

Connection has remained broken for a long time. 

te ypnsenes messages have their fork process resumed with 
a failure status. 

G SEQUENCE: 


BSBW LONG_BREAK 
IPL must be at IPL$_SCS 


PARAMETERS: 

R5 Address of CSB 
PARAMETERS: 

None 

FFECTS: 

RO and R1 are destroyed. 


#CSBSV_LONG ter 


; Mark long break seen and 
st STATUS(R 


return if already set 

; Address of message 

; Note configuration change 
; Report long brea 

; Are we disconnecting? 


BS CN 

BSBW  CNX$CO 

CMPB © CSB$B_STATE(RS), - 
#CSBSR_DISCONNECT 


BSBW CNXSFAIL_MSG 


=< 
o 
o 
r=] 
wn" 
— 
Dara 
re « 
row 
sw 
a 
m 
Sete Se Ge eee 


Branch if yes 
Complete outstanding messages 


@ 
m 
oO 
fom 
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v04-000 CNXSDECREFCNT = Decrement CSB Reference green 138 80:35:98 YOYSLOA. Ske CNXMAN.MAR; 1 wt (33) 
} ? ~SBTTL CNXSDECREFCNT = Decrement CSB Reference Count 
1 git 
! ; FUNCTIONAL DESCRIPTION: 
1 § : This routine decrements a CSB reference count and deletes 
1 Y ; the CSB when the reference count goes to 0. 
3 16 : ; CALLING SEQUENCE: 
5 16 4 : BSBB  —s- CNX SDECREFCNT 
18 § : INPUT PARAMETERS: 
3 16 8 : RS Address of CSB 
5 1610 : IMPLICIT INPUTS: 
5 1611 ; 
30 19l¢ ; NONE 
508 1614 : OUTPUT PARAMETERS: 
be08 1615 ; RS: Address of CSB, if not deleted 
308 1616 R5: Contents of CSBSL_SYSQBL, if CSB deleted 
030 1618 : IMPLICIT OUTPUTS: 
23 19)7 s NONE 
030 1621 : COMPLETION CUDES: 
0808 1698 kf 
508 1624 ; SIDE EFFECTS: 
5 1625 ; R2-R4 preserved 
5 16 § 3 
208 1638 
5 1 16 § CNXSDECREFCNT:: 
6C AS) 97 «(05 1630 DECB CSBSB_REF_CNT(RS) ; Decrement reference count 
2A 15 5 1 1 BNEQ 20$ :; Branch if non-zero 
FAFO’ 3 50D 1 § BSBW CNXSFAIL_MSG : Fail any outstanding messages 
26 10 0510 16 BSBB DELETE TOE ; Flush timer queue entry 
50  0000'CF 3 512 1634 MOVAB DEAD_MSG,RO ; Address of dead node message 
FAE6' 17 1635 BSBW  CNXS$CONFIG CHANGE > Report configuration change 
50 68 A 4 1A 16 $ MOVL CSB$ (R5),R ; SB address 
5¢C AO 3 »} 5 1 Hea R3 S881 CSB (AO) ; Is this CSB pointed to? 
5C “0 D4 16 ; CLRL ttt CSB(RO) : Invalidate back pointer 
04 A DD 7 1640 10$ PUSHL CSBSC | St ; Backward Link 
Of A 196] PUSHR #*M<R2_R3> 3; Save registers 
50 6 OF RS rk REMQUE (R5),R 3 Unlink 
00000000 GF 6 F 164 JSB G*EXESDEANONPAGED : Deallocate it 
C A ; 1644 POPR #*M<R2,R3,R5> ; Restore registers 
5 05 1645 20$: RSB 
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CNXMAN - Cluster Connection Mana 16-SEP-1984 AX/VMS Macro Vv04-00 Page 37 CN 
v04-000 DELETE_TQE = Delete a e000RT og to a CS 5=SEP-1984 2 8e: ME 3 US YSLOA. SREJCNXMAN. MAR: 1 Bo) Ta 
5 190t ~SBTTL DELETE_TQE = Delete a TQE Linked to a CSB 
190 p++ 
1? ; FUNCTIONAL DESCRIPTION: 
; 1 s This routine deallocates a TQE Linked to a CSB. 
1654 : CALLING SEQUENCE: 
5 1888 3 
: 1928 ; BS8B DELETE_TQE 
: 1928 3 INPUT PARAMETERS: 
2 1999 3 R5 Address of (SB 
5 1006 : IMPLICIT INPUTS: 
5 1665 ; 
: 1903 5 CSB$L_TQE is 0 or address of TQE 
05 1996 3; OUTPUT PARAMETERS: 
5 1667 ; NONE 
5 1668 ; 
5 1997 3 IMPLICIT OUTPUTS: 
8 1670 ; NONE 
5 1671 ; 
05 1906 3; COMPLETION CODES: 
82 1675 ; NONE 
5 1674 ; 
5 1675 ; SIDE EFFECTS: 
5 1926 : RO and R1 destroyed. 
5 1677 ; 
5 1678 ;-- 
5 1679 
5 1680 DELETE_TQ9E 
50 44 AS 00 5 1681 OVL CSBSL_TQE(R5),RO 3; Get address of TQE 
10 1 53C 16 ¢ BEQL 10$ 3; There isn't one 
Oc BB O05 16 PUSHR #*M<R2,R3> 3; Save registers 
50 60 OF 0540 1684 REMQUE (RO),R ; Remove from timer queue 
oooou09e" GF 16 0543 1685 JSB G*EX ESDEANONPAGED :; Deallocate it 
AS C4 0549 16 § CLRL CSBSL_TQE(R5) ; Clear pointer 
* Oe 4 54C 16 POPR a*nc ch? ; Restore registers 
5 054E 1688 10$ RSB 
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‘ -SBTTL DEAD_NODE - Manage death of a node 


cr 
mm 
>o 
o- 


ooo 


"FUNCTIONAL DESCRIPTION: 
Soo be open 6 new ss pala? ig AP pe pee peer seen t9 
No connection to the system exists.” The CS6 18 deleteds 
CALLING SEQUENCE: 
BSBB DEAD_NODE 
INPUT PARAMETERS: 
R5 Address of CSB 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
RO and R1 are destroyed. R5 is invalidated. 


GOOG OCOCOCOOGOOOCOOCOCOOCOOCOOCOOOOOCOOBOOOOOOOOOO 


et a ts ds a bs 2s — 4 sb a a a tt tt 


NNN NNN NNSA OOAAO 


PONOPONONONONONONUN) SS SB BOO ODDO 0000000 


OOO NAME WIN OOO NIA UNE WIN 9 ODNOAMU EWN O ODNAUSE 


EAD_NODE: 
90 10 “  BSBB LONG_BREAK : Simulate connection broken for long time 
= aE BSBB DELETE TQE ; Get rid of timer 
B3 h os88 CNXSDECREF CNT 3; Get rid of CSB (eventually) 
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Check. gS failure mes 5-SEP- SYSLOA.SRCJCNXMAN.MAR; 1 
yes ~SBTTL CNX STATUS_CHECK = Check SCS failure message 
; FUNCTIONAL DESCRIPTION: 
a SCS failure message and BUGCHECK if the remote node has requested 


“Cc 
perry 
“a 

xo 


CALLING SEQUENCE: 


ter Conne 
ATUS_CHEC 
He 
1 
: ; ! 
é ; 
5 $ ; 
1539 
1740 ; JSB CNX_STATUS_ CHECK 
1248 ; INPUT PARAMETERS: 
556 (1744: : R5 CSB address 
556 1745 ; RO SCS Reason code 
336 1708 : Ry SYSAP reason (if RO=SS$_REJECT) 
556 1748 : IMPLICIT INPUTS: 
23 1545 3 
230 \f ? 3 NONE 
se 7 : : OUTPUT PARAMETERS: 
eee ies osere 
0356 17 : : IMPLICIT OUTPUTS: 
556 ee 3 
CECT then 
0556 1760 : COMPLETION CODES: 
556 1761; 
ag Mee: wow 
556 1764 : SIDE EFFECTS: 
556 1765 ; 
: 6 1766 3 NONE 
6 1767 ; 
ae 
556 1356 CNX_STATUS_CHECK: 
93 BB 05 3 1771 PUSHR #*M<RO,R1> : Save registers 
0000 ° 8F 0 * 5 \ee¢ CMPW R #SS$_REJECT : Is this a connection request reject? 
of 3 2p 177 BEQL ; Branch if yes 
0000 ' 8F 0 9) F 1774 CMPW 8 #SS$_DISCONNECT : Is this a requested disconnect? 
14 é 64 1775 BNEQ 208 : Branch if no 
10 $1 es 66 1726 108: BBC #CLMDRSS$V_DRS,R1,208 ; Branch if not a cluster disconnect code 
off 1 EO 56A (177 BBS é LADRSSV FATAL,R1,50$ : Branch if bugcheck requested 
0000 ' 8F ° 8 1708 CMPW RO,#SS DISCONNECT 3; Is this a requested disconnect? 
8 177 BNEQ 208 ; Branch if no 
51 A 9 75 «(17 9 CMPB & LADRSSC_REROVED -1 :; Is this node removed from cluster? 
14 «#1 78 #17 BEQL 4 ; Branch if local node removed and exit 
0000°8F 50 ? 7A 17 § 208: CMPW RO, #SS$_VCBROKEN : Is this a circuit failure? 
A ¢ 7F O17 BNEQ 30$ 3; Branch no 
0000 8F 1 1 1784 CMPW #SS$_NOSUCHNODE : Is this a result of a ‘last gasp’? 
i $ 1785 BNEQ 3; Branch if no 
FF 17 § BSBY LONG peek 3; Declare a Long break 
BA 1787 30$ POPR #*M<RO,R1> ; Restore registers 
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Check 


40$: 
50$: 


tay failure mes 
RSB 

BUG_ CHECK 

BUG_ CHECK 


"SSEP=1984 02:67:75 ESYSLOR.SReSewxmancman:1 "29° (39, 


; Return to caller 
CLUEXIT,FATAL ; This node removed from cluster 
CNXMGRERR,FATAL ; Bugcheck requested by disconnecting remote 
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-SBTTL CNXSLOOKUP_CSB = Lookup a CSB given a SB address 


ae 
FUNCTIONAL DESCRIPTION: 


CNXSLOOKUP_CSB find a CSB with matching System ID and 
software incarnation number given an SB address. 


; CALLING SEQUENCE: 
; JSB CNXSLOOKUP_CSB 
; INPUT PARAMETERS: 


; RY Address of SB 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
RS is address of CSB 
; IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
RO contains status 


; SIDE EFFECTS: 
R1 is destroyed 


CNXSLOOKUP_CSB:: 
USHR 


Pus #*M<R2,R3,R4> 
MOVL 

MOVL SBSL_CSB(R4) RS 
BEQL $ 


3; Check software incarnation. 


BBS #CSBSV_LOCAL 


cSBSL STATUS(RS) ,50$ 
CMPC3 #CSB$S_SWINCARN, - 
CSB$Q_SWINCARN(RS) ,- 

Q_SWINCARN(R4) 
BEQL $ 


; There is an existing CSB with a 


Lookup given SB address 

Save registers 

SB address 

Get CSB for this SB 

Branch if no CSB for this SB 


Skip if local system 
Software incarnations match? 


; Branch if yes and exit 


different software incarnation. 


; Get rid of it and fail over that node (perahps for the second time!) 


STATE_DISP <<NEW, 40$>, <DEAD, 30$>, <WAIT, 20$>, <RECONNECT, 10$>> 
BUG_CRECK CNXMGRERR, FATAL : Temporary Bugcheck 


MOVB #CSBSK DEAD. - 
B_STATE(RS) 


CSB 


; Set state=DEAD 


Cluster Connection Manager 


CNX LOOKUP _ rn = Lookup a CSB sroeles 


11 


(ad a dt tt 


OS PUNTO SP WOO 


\~ A 4-4 ~~ 4-4 - A121 ee 


www 


308 


acs 

athe UStATE (aS) 
DEAD A 

RG,RT 

CN SCREATE_CSB 
$B 
C$ 
s* 
* 
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; Set state=DEAD 
; Handle dead node 


; Create new CSB 
; Return with status 


; Update bag incarnation and 
$0 SWINCARN(R aa tinu 
$33- a ; ay CSB. in 


x 
$ 
. SWINCARN(R4) 
# 
M< ; Restore nonvolatile registers 


; Branch to allocate new block 


con 
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P ~SBTTL CNXSCREATE_CSB = Create a new CSB given a SB address 
FUNCTIONAL DESCRIPTION: 
CNXSCREATE_CSB creates a CSB with matching System ID and 
software incarnation number given an SB address. 
It is assumed that no similar CSB already exists. 
CALLING SEQUENCE: 
JSB CNXSCREATE_CSB 


INPUT PARAMETERS: 


on 


R1 Address of SB 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
RS is address of CSB 
IMPLICIT OUTPUTS: 
NONE 
COMPLET ON CODES: 
contains status 


SIDE EFFECTS: 
Ri is destroyed 


CNXSCREATE _CSB:: 
PUSHR 


Lookup given SB address 


5 #*M<R2,R3,R4,R6,R7> ; Save registers 
VL ; SB address 
MOVZWL #cSBSK LENGTH, R1 : Size of CSB 
SBW CHXSALCOZRER 3 Allocate and zero memory 
BLBS RO,10 ; Branch if successful 
BRW $ : Exit, status in RO 
10$: MOVL Re oRG ; CSB addre 
MOVL R6,SB$L_cSB(R7) 3; Update SB to point to newest CSB 
MOVB #DYNSC_CLU_CSB,~ 3 Store subtype 
CSB$B_SUBTYPE (RG) 
MOVAL CSBSL_SENTQFL(R6),- ; Initialize sent List 
CSBSL_SENTQBL (RO) 
CLRL CSBSL_SENTQFL (RO) 
MOVAL CSBSL_RESENDQFL(R6),.- ; Initialize resend List 
CSBSL_RESENDQBL (R6) 
CLRL ts RESENDOQFL (R6) 
MOVL #1,CSBSL_CURRCDRP(R6) Bl Lock critical section in SEND_MSG 
MOVAB CSB$L_WARMCDRPOFL (R6) ,- ialize warm CDRP queue 
CSBSL_WARMCORPOFL (RO) 
MOVAB CSBSL-WARMCDRPOQFL(R6),- 
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CSBSL_WARMCDRPQBL (R6) 


3; Store remote gies software incarnation number and system id. 
3 so that if this connect on breaks and another is established, 
; we can determine if it’s the same system and software 

3 incarnation at the other end. 


MOVa SB$Q_SWINCARN(R7) ,=- 


Store software incarnation numb 
CSBS0_SWINCARN(R6S re 


MOVB ac ask NEW 3 Set state to NEW 
CSB$B_STATE(R6) : 
MOVAL CSRSL CARING QFL(R6), ~ ; Initialize block transfer 
CSBSL_PARTNERQFL (R6) 3; partners queue. 
MOVAL CSBSL_PARTNERQFL(R6), - 
CSBSL_PARTNERQBL (R6) 
MOVa G*EXESGQ SYSTIME, = 3 Stamp reference time in CSB 
CSB$Q_REFTIME(R6S 
MOVL Gc cLUSGL CLUB, - 3; Address of CLUB 
CSBSL_CLOB(R6S 
MOVB #1,CSBSB_REF_CNT(R6) i Initialize reference count 
MOVL R7 csB8t SB(R6) 3; Address of S$ 
MOVAB CSB$B_CNTT(R6) ,RO 3: Connect data block 
MOVB I°#0,CNCT$B_ECOLVL(RO) : ECO Level, set for easy patching 
MOVB #CNCTSK PROTOCOL - : Protocol Level 
cNCTSB VERNUM(ROS 
MOVB #CNCTSR_INITIAL, - 3: Initial connect 
CNCTS$B_TYPE(RO) 
MOVB #SEND _CREDITS-1, - ; Unacknowledged message Limit is 
CNCTSB_ACKLIM(RO) 3; send credits - 1. 
ASSUME CLUBSL_CSBQFL EQ 0 
ASSUME CSBSL_SYSQFL EQ 9 
MOVL CSBSL_CLUB(R6) ,R ; Get address of CSB queue header 
MOVL  CSBSL~SYSQFL(RS5) ,RS : Get address of next CS 
oat R5,CSBSL_CLUB(R6S 3 Reached end of List? 
: Yes 
MOVL CSBSL_SB(R5) ,RO ; This CSB's SB address 
CMPC3 #SBSS-SYSTEMID, - : Compare system IDs 
SB$B_SYSTEMID(R7), - 
$B_SYSTEMID(RO) 
BGTR ; Branch if no match 
INSQUE CSBSL_SYSQFL(R6), - 
@CSBSC_SYSQBL (R55 
MOVL SH ; Set up result register 
CMPL R7 ,@SCS$GA_LOCALSB ; Is this the local S8? 
BEaL «=s«40$ : Skip message output 
; because we are at IPL 31! 
MOVAB CSB_MSG,RO ; Address of new CSB message 
S CNXSCONF 1G CHANGE ; Log CSB creation 
MOVZWL S*#SS =NQRAAL R ; Found CSB, RS 
POP BOM<R27R3.R4RO,R7> : Restore nonvolatile registers 
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-SBTTL DISPATCH = Dispatch on CSB state 
:* FUNCTIONAL DESCRIPTION: 


This routine dispatches posed upon the CSB state 
using ® a table assembled in-line at the call site. 
The STATE_DISP macro defines and builds the table. 


; INPUT PARAMETERS: 


7? First byte of dispatch table 
Address of CSB 


OUTPUT PARAMETERS: 
NONE 
; SIDE EFFECTS: 
ALL registers preserved. 


DISPATCH:: 
cuore R1> ; Save RO and R1 
MOVL 8(SP ) RO ; Fetch table address 
10$ CROD SR ; Fetch state code 
BEQL 30$ ; End of table 
R1,CSB$B_STATE(RS) ; Match? 
20$ ; Branch on matc 
35480 ; Bump over word " atnes 


? 
9 
9 
9 
9 
9 
9 
9 
9 
0 
0 
0 
0 
0 


¢ 
i 
+ 
§: 
: 
: 
f 
ji 
e 
aa 
é 


gps: (RO)+,R1 ; Fetch word offset 
RO,.R1,8(SP) ; Store return address 
#*cRO,R1> : Restore registers 


4 gee es —-O—0- 09 
wuP—rw =Sataxrss 
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1 
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Symbol table ° Bet eee ee OR aT te TORE oe 58, 
ACCPT_MSG eereneee =X 4 CNCT$W_NODES = 

BUGS_CLUEXIT eeeeenee =X Oe CNCTS$W_ QUORUM s 4 

BUGS ~CNXMGRERR eeeeeeer =X 4 CNCTSU_RCVDSEQNA = ¢ 
COTSC_AUXSTRUC = 90000 5¢ CNCTSW- VOTES = 

= 1¢ CNCT_CRECK 42A R 4 

CJFSMIN_ JOURNAL eeerenee =X 03 CNCT-DATA 3FF R 4 
CLMDRSSC. PROTOCOL = 4 CNCT"MSG eeeneene 4 
CLMDRSSC_REMOVED = A CNXSACCEPT 00000222 RG 4 
CLMORSSC =VERSION 2 CNXSALLOZMEM eeereere 3 
CLMDRSSM_DRS = CNXSBREAK 00000309 RG 4 
CLMORSSM_FATAL = CNXSCHECK_QUORUM eeenrene 4 
CLADRS$V RS = 9 F CNXSCONF IG_CHANGE eeeeenee 4 
CLMORSSV_FATAL s 8 CNXSCONNECT 00000038 4 
CLSMSGSK~MAXMSG = 00000068 CNXS$CON_BREAK aeeeeeee 4 
LUSGL_C tteeeeee =X 0 CNXSCON_INIT seeeeees 3 
CLUSGL-CLUSVEC eeeeeeer xX CNXSCON_NEWSYS aereneee 4 
CLUSGW"LCKDIRWT eeeeeeee =X 8 CNXSCREATE CSB 9 005 4 
CLUSGW"MAX INDE eeeeeeee =X CNXSDECREF CENT 005 4 
CLUSGW"QDSKVOTES eeeeeene = X 0 CNXSDISCONNECT 0 3 4 
CLUSGW"QUOR eeerenee§ = X 0 CNX$DISC_BUGCHECK 00002CF 04 
CLUSGW-RECNXINT teeeeeeer KX 04 CNXSOISC_PROTOCO 00002E1 RG 04 
CLUSGW"VOTES eerereeer = = X 03 CNXSDISC- REMOVE 0008 D6 RG 04 
CLUBSB_ CLUB = 0000018C CNXSERROR 00002F6 RG 04 
CLUBSB_FORK_ BLOCK = Q000000CC CUXSF ALL MSG eeereere 04 
CLUB$B8_ SUBTYPE = 444 CNXSINIT™ 0000000 RG 03 
CLUBSK_LENGTH = 4 $s CNXS$LOOKUP_CSB 000059 04 
CLUBSL_C = 00000004 CNXSNEWSYSTEM 00000 04 
LUBSL_CSBOQFL = 355 00 CNXSNEW_CSB 0000031 RG 04 
CLUBSL_FLAGS = 000 OI CNXSPOST_CLEANUP eeeeeeee 04 
LUBSL-JNL_DISPT = 300 14 CNXSPRE_CLEANUP eeeeeeee 04 
CLUBS$L_LOCAL_CSB = 0 SO00T0 CNXSRCV_CNCT_MSG 00000158 04 
CLUBSL_POLL_C = Wi oe CNX MS aeeeeene 04 
CLUBSACLUSTER = 00000001 CNXSRESEND_ MSGS eeeeneet o% 
CLUBSV_CLUSTER = 0000 CNXSWA 0000036A 4 
CLUBSW_F IRST_INDEX = 0 36 CNXERROR_MSG eeeeeeee 04 
CLUBSW_NODES~ = 4 CNX STATOS. CHECK 00008 96 04 
CLUBSW_QDVOTES = 000 CSBSB_CNCT™ 3008 907 

CLUBSW_ QUCRUM = CSB$B_ECOLVL = 

CLUBSW~ VOTES z CSBSB_REF = $ 
CLUBFKESS.. FORK_BLOCK = CSBSB_REMACKLIM = 0 
CLUBPWF$S-FORK_BLOCK = CSBSB_STA = 0004 
CNCTSB_ACRLIM ~ = CSB$B_SUBTYPE = 00 0B 
CNCTSB_CLSSTS = CSBSB_VERN = 00 41 
CNCTSB_CNXSTS = CSBSK_ACCEP = g 
CNCT$B-ECOLVL = CSBSK-CONNECT = 

CNCT$B_ TYPE = CSBSK_DEAD = A 
CNCT$B_VERNUM = CSBSK_DISCONNECT = 7 
CNCTSK_INITIAL = CSBSK"LENGTH = AC 

CNCTS$K_ PROTOCOL s CSBSK-LOCAL = 

CNCTSK- RECONNECT = CSBSK_NEW = 

CNCTSM_CLUSTER = CSBS$K_OPEN = 1 
CNCTSM_LONG BREAK = CSBSK-REACCEPT = 

CNCTSM_MEMBER = CSBSK_RECONNECT = 

CNCTSM_REMOVED = CSBSK-WAIT = 

CNCTSV~ CLUSTER = CSBSL_COT = f 
CNCTSV_LONG BREAK = CSBSL_CLUB = 

CNCTSV_REMOVED s CSBSL~CURRCORP = 4 
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CSBSL_PARTNERQBL = PROC_NAM 
CSBSL~PARTNERQFL = : REACEEH fis oe sgaeees . 4 ? 
CSBSL_PDT = RECNCT_CHECK 00000478 R 4 
CSBSL—RESENDOBL : RECNCT MSG aeeeenee = X 04 
esate soon Shs SONS ih 
= s 
CSBSL_SENTOBL = $ tte = C 
CSBSL-SENTOFL . 1 SB$0~SWINCARN = 
CSBSL-STATUS = 0 SBSS"SYSTEMID = 
CSBSL-SYSQBL = 4 SBSW~MAXMSG = 
CSBSL_SYSQFL = SCSSACCEPT ateereee GX 4 
CSBSL-TIMEOUT = 4 S¢SSCONF IG SYS aeeeeeee xX 04 
CSBSL_TQE = SCSSCONNECT eeeeeeee 8X 4 
CSBSL-WARMCDRPQBL = 8 SCSSDISCONNECT eeeeeeee§ KX 04 
CSBSL~WARMCDRPOFL = 4 SCS$GA_LOCALSB eeeeeeee X= 03 
CSBSM—LOCAL = 01 0 SCS$GW~MAXMSG eeeereee xX 04 
CSBSM"~LONG BREAK = 1 SCSSLISTEN aeereree GX 
CSBSM_MEMBER = 09 2 SCSSPOLL_MODE aeeeeeee =X 
CSBSM_REMOVED = SCS$POLL—PRO teeeeeee =X 
CSBSQ-REF TIME = 00000074 SCSCMGSB~SNDDAT = 90000020 
CSBSQ"SWINCARN = 999 3 SEND_CREDITS = 000000 
CSB$S_SWINCARN = 3200 SS$_BISCONNECT eeeeeeee =X 4 
CSBSV~LOCAL = 9 1 SS$_NORMAL aeeneree§ X 04 
CSBSVTRENOUED™ . 0900008 SSe-ReuERT sesseees 8 
= 
ESBRUACERSEGi = 89900085 SSE VConOKEN Se 
= 
$Sath-ceneal® : a990056 TORSecTYPL. : 2099008 
= = 
CSB$W_RCVDSEQNM = 9900002 TOESC-SSSNGL = 99 9991 
CSBSW~VOTES = 0000 TQESK"LENGTH = 9 9 0 
CSB_MSG eerereee =X 06 TOESL_FPC = 000 o¢ 
DEAD_MSG eeeeeeee§ X 06 TQESL-FR = 0000001 
DEAD 99 4F R 4 TOESL-FR4 = 000 0014 
L w- = 
DELETE TOE 38 R 4 TQESW "SIZE 0000008 
DISC_STATUS 0 £6 R 04 
DISPATCH 4 


DYNSC_CLU_CLUB 
DYNSC_CLU_CLUVEC 
DYNSC oe 


nun 
oS 
oooo 
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@ 
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DYNSC"T 0 F 
EXESACONONPAGED eeeeeeer =X 4 
EXESAL_TQENOREPT aeeeeree = § X 4 
EXESDEANONPAGED eeereree 8X 4 
EXESGL_ABSTIM eteeeere 4 
EXESGO SYSTIME eererere 4 
CXESINSTIMO eeeeeree x 4 
FAILIO_MSG eenenere 4 
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goeeoeoeoeoceeoeeceoes$ 


! Psect synopsis ! 


Pewee mee one onan $+ 


becwmemew eer eww eee ew wee onen =} 


! Performance indicators ! 


Powter en ene new eer en cece} 


CPU Time 


Phase 


Page faults 


Elapsed Time 


Psect synopsis output 
Cross-reference output 
Assembler run totals 


Initialization 3 0: 8:0 -0% : $: 
Command processing 11 0:00:00.4 :00:02. 
Pass 41 0:00:10. :00:34. 
Symbol table sort :00:01. :03 
Pass 388 8: ‘ :00:09 
Symbol table output 2 : 13 :00 


0:00: : 
6 09: : 8 8: 
92 0:00:15.9 00: 
{ng york ine set Limit was 1800 pages. 

91245 bytes (179 pages) of virtual memory were used to buffer the intermediate 
There were 80 pages of symbol table space allocated to hold 1267 non-local gre 
014 source Lines were read in Pass 1, producing 26 object records in Pass 2. 

4 pages of virtual memory were used to define 51 macros. 


code: 
113 local symbols. 


g$eeeewene eee eee enc nee ewe coe} 


Macros defined 


Macro Library name 


_$255$DUA28: SVSLOA OBI ICLUSTER.ALS; 1 ; 
_S255SDUA28: aye O8y LIB.MLB; 1 
$255SDUA28: | eget STARLET.MLB;2 g 
TOTALS <all libraries) 2 


1394 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CNXMAN/OBJ=0BJ$:CNXMAN MSRC$: CNXMAN/UPDATE=(ENHS: CNXMAN) ¢EXECMLS/LIB+LIB$:CLUSTER/LIB 


SSEb=198¢ 92:67:19 USYSUGR. SRESEWXRAN. RAR: 1 


PSECT name Allocation PSECT No. Attributes 

aBS . ( » 0 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVE 
$aBS$ ( :) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVE 
$$ ( 16. : ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVE 
$$$00 FO ¢ 34 *) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVE 
$$$1 687 ( 1719.) 04 ¢ 4:) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVE 
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